From: Roland Winkler <winkler@gnu.org>
Date: Wed, 20 Jul 2011 01:09:31 +0000 (-0500)
Subject: lisp/proced.el (proced-send-signal): small fix
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2755
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8aadac753d72e6222ff580bcd945e1ca75aad086;p=emacs.git

lisp/proced.el (proced-send-signal): small fix
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d13a196f17a..03016160fdb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-19  Roland Winkler  <winkler@gnu.org>
+	* proced.el (proced-send-signal): For *Marked Processes* buffer
+	put point at beginning of buffer.
+
 2011-07-19  Stephen Berman  <stephen.berman@gmx.net>
 
 	* proced.el (proced-format): Make header lines align with the text
diff --git a/lisp/proced.el b/lisp/proced.el
index cc1856060b3..b1a7aed722c 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1733,7 +1733,9 @@ After sending the signal, this command runs the normal hook
             (buffer-disable-undo)
             (setq buffer-read-only t)
             (dolist (process process-alist)
-              (insert "  " (cdr process) "\n")))
+              (insert "  " (cdr process) "\n"))
+            (delete-char -1)
+            (goto-char (point-min)))
           (save-window-excursion
             ;; Analogous to `dired-pop-to-buffer'
             ;; Don't split window horizontally.  (Bug#1806)